home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / Moof / Goodies / MPW Goodies / MPW Goodies⁄DTS / CompareLastRevision < prev    next >
Text File  |  1989-04-13  |  919b  |  40 lines
  1. #    CompareLastRevision - compare a file with the last revision of it
  2. #
  3. #    Usage:    CompareLastRevision file
  4. #
  5. #    Status:    CompareLastRevision returns the status value from Compare.
  6. #
  7. #    CompareLastRevision runs a compare command with the last revision
  8. #    of a file checked out for modification.
  9. #
  10. #    © Apple Computer, Inc. 1988
  11. #    All rights reserved.
  12.  
  13. Set Exit 0
  14.  
  15. For File In {"Parameters"}
  16.     If "{File}" !~ /:*([¬:]+:*)*([¬:]+)®1/
  17.         Echo "### {0} - “{File}”: bad file name"
  18.         Continue
  19.     End
  20.     Set Short "{®1}"
  21.  
  22.     Set Info "`ProjectInfo "{File}"`"
  23.     If "{Info}" !~ /≈Project: (≈∫)®1 ≈/
  24.         Echo "### {0} - “{File}”: not part of project"
  25.         Continue
  26.     End
  27.     Set Project "{®1}"
  28.  
  29.     CheckOut -d "{Boot}" -project "{Project}" "{Short}"
  30.     Set CheckOutStatus {Status}
  31.     If {CheckOutStatus} != 0
  32.         Echo "### {0} - unable to check out “{File}”"
  33.         Exit {CheckOutStatus}
  34.     End
  35.  
  36.     Compare -n -t -x "{Boot}{Short}" "{File}"
  37.  
  38.     Delete -i "{Boot}{Short}"
  39. End
  40.